﻿Imports System
Imports System.Collections

Public Class IndiceGrillaBE
#Region "Campos y Propiedades"
    Private _IdGrilla As Integer
    Private _Indice As String
    Private _Orden As Short

    Public Property IdGrilla() As Integer
        Get
            Return _IdGrilla
        End Get
        Set(ByVal value As Integer)
            _IdGrilla = value
        End Set
    End Property

    Public Property Indice() As String
        Get
            Return _Indice
        End Get
        Set(ByVal value As String)
            _Indice = value
        End Set
    End Property

    Public Property Orden() As Short
        Get
            Return _Orden
        End Get
        Set(ByVal value As Short)
            _Orden = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdGrilla As Integer, ByVal IdIndice As Integer, ByVal Orden As Short)
        Me._IdGrilla = IdGrilla
        Me._Indice = IdIndice
        Me._Orden = Orden
    End Sub
#End Region
End Class

Public Class IndiceGrillaBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As IndiceGrillaBE
        Get
            Return CType(List(index), IndiceGrillaBE)
        End Get
        Set(ByVal value As IndiceGrillaBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As IndiceGrillaBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As IndiceGrillaBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As IndiceGrillaBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As IndiceGrillaBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As IndiceGrillaBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class


